VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "XbrlRefItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public id As Integer
Public tag As String
Property Get compkey(keyNo As Integer) As String

Select Case keyNo
    Case 0
        compkey = tag
    Case 3
        compkey = tag
End Select

End Property


